home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs06.d81 / lister.dsk (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  4KB  |  153 lines
  1. 100 REM *******************************
  2. 110 REM **FOX VALLEY '64' USERS GROUP**
  3. 120 REM ****** DISK JACKET MAKER ******
  4. 130 REM ****** BY DAVE WOOTEN *********
  5. 140 REM ****** JULY 30, 1984 **********
  6. 150 REM *******************************
  7. 160 REM: FOR NON-EPSON THREE COLUMN              JACKET CHANGE P$ TO CORRECT
  8. 170 REM  PRINTER CONTROL CODE IN          (null)      LINE #240
  9. 180 REM ** PR$  - PRINTER TYPE
  10. 190 REM ** P$(null)  - PRINTER CONTROL CODE  :
  11. 200 DIMA$(200),B$(200),C$(200)
  12. 210 POKE53280,6:POKE53281,0
  13. 220 PRINT"[147] DISK JACKET MAKER "    "
  14. 230 [153]" EWAITPSON OR CWAITOMMODORE PRINTER?";
  15. 240 [161]PR$:[139]PR$[178]""[167]240
  16. 250 [139]PR$[178]"E"[167][153]"    EPSON   ":P$[178][199](15):[137]280
  17. 260 [139]PR$[178]"C"[167][153]"  COMMODORE ":[137]280
  18. 270 [137]220
  19. 280 [153]" OWAITNE OR TWAITWO DISK SIDES?";
  20. 290 [161]SI$:[139]SI$[178]""[167]290
  21. 300 [139]SI$[178]"T"[167][153]"       TWO SIDES ":[137]330
  22. 310 [139]SI$[178]"O"[167][153]"       ONE SIDE  ":[137]330
  23. 320 [137]220
  24. 330 [153][163]5)"INSERT DISK AND PRESS RETURN";
  25. 340 [161]R$:[139]R$[178]""[167]340
  26. 350 [153]"LOAD WORKING "
  27. 360 [153]"           DO NOT TOUCH DRIVE"
  28. 370 [141]500
  29. 375 [153]"LOAD PRINTING "
  30. 376 [153]"          DO NOT TOUCH PRINTER"
  31. 380 [139]PR$[178]"E"[167][141]720:[137]400
  32. 390 [141]930
  33. 400 [139]SI$[178]"O"[167][141]1450:[141]1530:[137]450
  34. 410 [153]"TURN DISK OVER - PRESS RETURN"
  35. 420 [161]R$:[139]R$[178]""[167]420
  36. 430 [153]"LOAD WORKING "
  37. 440 [153]"DO NOT TOUCH DRIVE":[141]500
  38. 442 [153]"LOAD PRINTING "
  39. 444 [153]"DO NOT TOUCH PRINTER"
  40. 445 [141]1140:[141]1530
  41. 450 [153]"          MAKE ANOTHER JACKET?";
  42. 460 [161]R$:[139]R$[178]""[167]460
  43. 470 [139]R$[178]"Y"[167][138]
  44. 480 [128]
  45. 490 [143]  ** GET DIRECTORY ENTRIES **   :
  46. 500 [159]1,8,0,"$0"
  47. 510 I[178]0:N$[178][199](0)
  48. 520 [129]N[178]1[164]25:SP$[178]SP$[170]" ":[130]
  49. 530 [161]#1,D$,D$
  50. 540 :
  51. 550 [143]  ** BEGIN MAIN LOOP **
  52. 560 I[178]I[170]1
  53. 570 [161]#1,D$,D$
  54. 580 :
  55. 590 [139]D$[178]""[167]700
  56. 600 :
  57. 610 [161]#1,A$(I),B$(I)
  58. 620 C$(I)[178][196]([198](A$(I)[170]N$)[170][198](B$(I)[170]N$)[172]256)
  59. 630 :
  60. 640 [161]#1,D$
  61. 650 :
  62. 660 [139]D$[178]""[167]560
  63. 670 :
  64. 680 C$(I)[178]C$(I)[170]D$
  65. 690 C$(I)[178][200](C$(I),25):[137]640
  66. 700 [160]1
  67. 710 [142]
  68. 720 [143] *** EPSON PRINT ROUTINE ***   :
  69. 730 [129]N[178]1[164]118:DA$[178]DA$[170]"-":[130]
  70. 740 [129]N[178]1[164]79:CN$[178]CN$[170]" ":[130]
  71. 750 [129]N[178]1[164]98:BL$[178]BL$[170]"-":[130]
  72. 760 LS$[178]"!         !        ":RS$[178]"         !         !"
  73. 770 [159]4,4
  74. 780 [152]4,P$;DA$;"  CUT"
  75. 790 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);[199](20);
  76. 800 [152]4,P$;"SIDE 1";[201](RS$,18)
  77. 810 [152]4,LS$;CN$;RS$
  78. 820 [129]J[178]2[164]I [169]3
  79. 830 [139]C$(J)[178]""[167]C$(J)[178]SP$
  80. 840 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
  81. 850 [139]C$(J[170]2)[178]""[167]C$(J[170]2)[178]SP$
  82. 860 [152]4,LS$;C$(J);"  ";C$(J[170]1);"  ";C$(J[170]2);RS$
  83. 870 LC[178]LC[170]1
  84. 880 [130]
  85. 890 [129]L[178]1[164]21[171]LC:[152]4,LS$;CN$;RS$:[130]
  86. 900 [152]4,DA$;"   FOLD"
  87. 910 LS$[178]"          !        ":RS$[178]"         !"
  88. 920 [160]4:[142]
  89. 930 [143] *** COMMODORE PRINT ROUTINE ***
  90. 940 [129]N[178]1[164]69:DA$[178]DA$[170]"-":[130]
  91. 950 [129]N[178]1[164]52:CN$[178]CN$[170]" ":[130]
  92. 960 [129]N[178]1[164]56:BL$[178]BL$[170]"-":[130]
  93. 970 [159]4,4
  94. 980 [139]C$(J)[178]""[167]C$(J)[178]SP$
  95. 990 [152]4,P$;DA$;"  CUT"
  96. 1000 LS$[178]"!      ! ":RS$[178]" !     !"
  97. 1010 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);
  98. 1020 [152]4,[199](15)[199](146)" SIDE 1 "RS$
  99. 1030 [152]4,LS$;CN$;RS$
  100. 1040 [129]J[178]2[164]I [169]2
  101. 1050 [139]C$(J)[178]""[167]C$(J)[178]SP$
  102. 1060 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
  103. 1070 [152]4,LS$;C$(J);"  ";C$(J[170]1);RS$
  104. 1080 LC[178]LC[170]1
  105. 1090 [130]
  106. 1100 [129]L[178]1[164]21[171]LC:[152]4,LS$;CN$;RS$:[130]
  107. 1110 [152]4,DA$;"   FOLD"
  108. 1120 LS$[178]"       !":RS$[178]"  !"
  109. 1130 [160]4:[142]
  110. 1140 [143] *** SIDE 2 PRINT ROUTINE ***  :
  111. 1150 LC[178]0
  112. 1160 [139]PR$[178]"E"[167]1290
  113. 1170 [159]4,4:[152]4,LS$;CN$;RS$
  114. 1180 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);
  115. 1190 [152]4,[199](15);[199](146)" SIDE 2 "RS$
  116. 1200 [152]4,LS$;CN$;RS$
  117. 1210 [129]J[178]2[164]I [169]2
  118. 1220 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
  119. 1230 [152]4,LS$;C$(J);"  ";C$(J[170]1);RS$
  120. 1240 LC[178]LC[170]1
  121. 1250 [130]
  122. 1260 [129]L[178]1[164]25[171]LC:[152]4,LS$;CN$;RS$:[130]
  123. 1270 [152]4,[163]7);:[152]4,BL$;"   CUT"
  124. 1280 [152]4:[160]4:[137]1440
  125. 1290 [143]  *** EPSON SIDE 2 ***         :
  126. 1300 [159]4,4:[152]4,LS$;CN$;RS$
  127. 1310 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);[199](20);
  128. 1320 [152]4,P$;"SIDE 2";[201](RS$,18)
  129. 1330 [152]4,LS$;CN$;RS$
  130. 1340 [129]J[178]2[164]I [169]3
  131. 1350 [139]C$(J)[178]""[167]C$(J)[178]SP$
  132. 1360 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
  133. 1370 [139]C$(J[170]2)[178]""[167]C$(J[170]2)[178]SP$
  134. 1380 [152]4,LS$;C$(J);"  ";C$(J[170]1);"  ";C$(J[170]2);RS$
  135. 1390 LC[178]LC[170]1
  136. 1400 [130]
  137. 1410 [129]L[178]1[164]25[171]LC:[152]4,LS$;CN$;RS$:[130]
  138. 1420 [152]4,[163]10);:[152]4,BL$;"   CUT"
  139. 1430 [152]4:[160]4
  140. 1440 [142]
  141. 1450 [143]  *** BLANK SIDE 2 ***
  142. 1460 [159]4,4
  143. 1470 [129]C[178]1[164]27:[152]4,LS$;CN$;RS$:[130]
  144. 1480 [139]PR$[178]"E"[167]1500
  145. 1490 [152]4,"       "BL$;"   CUT":[137]1510
  146. 1500 [152]4,[163]10);:[152]4,BL$;"   CUT"
  147. 1510 [152]4:[160]4
  148. 1520 [142]
  149. 1530 [143] ** FORM FEED **               :
  150. 1540 [129]R[178]1[164]2:[159]4,4:[152]4,[199](12):[160]4:[130]R
  151. 1550 [142]
  152. 6682 
  153.